home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / distortfx / stereogramtypepaper < prev    next >
Text File  |  1999-06-15  |  2KB  |  70 lines
  1. Filter Factory Plugin Information:
  2.  
  3. FILENAME: PAPER.8BF
  4.  
  5. CATEGORY: 
  6. enki's filters
  7.  
  8. TITLE:    
  9. Wallpaper Deluxe...
  10.  
  11. COPYRIGHT:
  12. Copyright ) 1997 enki. grrr.
  13.  
  14. AUTHOR:   
  15. enki
  16.  
  17. Map 0: [Map 0:]
  18. Map 1: [Map 1:]
  19. Map 2: [Map 2:]
  20. Map 3: [Map 3:]
  21.  
  22. Control 0: [Stripes]
  23. Control 1: [A Control]
  24. Control 2: [Another Control]
  25. Control 3: [Still more]
  26. Control 4: [Again]
  27. Control 5: [Ditto]
  28. Control 6: [X]
  29. Control 7: [Y]
  30.  
  31. R=
  32. put(scl((val(6,X,0)+x)%X,0,X,-512,512),0),
  33. put(scl((val(7,Y,0)+y)%Y,0,Y,-512,512),1),
  34. put(cos(sin(((((ctl(1))%2)*get(ctl(0))%2)-
  35.     sin(((ctl(1)>>1)%2)*get((ctl(0)>>1)%2)))-
  36.     cos(((ctl(1)>>2)%2)*get((ctl(0)>>2)%2)))),2),
  37. put(sin(sin((((ctl(1)>>3)%3)*get((ctl(0)>>3)%2))-
  38.     cos(((ctl(1)>>4)%4)*get((ctl(0)>>4)%2))-
  39.     sin(((ctl(1)>>5)%5)*get((ctl(0)>>100)%2)))),3),
  40. src(mix(x,scl(get(2),-512,512,0,X-1),ctl(5),255),
  41.     mix(y,scl(get(3),-512,512,0,Y-1),ctl(5),255),z)
  42.  
  43. G=
  44. put(scl((val(6,X,0)+x)%X,0,X,-512,512),0),
  45. put(scl((val(7,Y,0)+y)%Y,0,Y,-512,512),1),
  46. put(cos(sin(((((ctl(1))%2)*get(ctl(0))%2)-
  47.     sin(((ctl(1)>>1)%2)*get((ctl(0)>>1)%2)))-
  48.     cos(((ctl(1)>>2)%2)*get((ctl(0)>>2)%2)))),2),
  49. put(sin(sin((((ctl(1)>>3)%3)*get((ctl(0)>>3)%2))-
  50.     cos(((ctl(1)>>4)%4)*get((ctl(0)>>4)%2))-
  51.     sin(((ctl(1)>>5)%5)*get((ctl(0)>>5)%2)))),3),
  52. src(mix(x,scl(get(2),-512,512,0,X-1),ctl(5),255),
  53.     mix(y,scl(get(3),-512,512,0,Y-1),ctl(5),255),z)
  54.  
  55. B=
  56. put(scl((val(6,X,0)+x)%X,0,X,-512,512),0),
  57. put(scl((val(7,Y,0)+y)%Y,0,Y,-512,512),1),
  58. put(cos(sin(((((ctl(1))%2)*get(ctl(0))%2)-
  59.     sin(((ctl(1)>>1)%2)*get((ctl(0)>>1)%2)))-
  60.     cos(((ctl(1)>>2)%2)*get((ctl(0)>>2)%2)))),2),
  61. put(sin(sin((((ctl(1)>>3)%3)*get((ctl(0)>>3)%2))-
  62.     cos(((ctl(1)>>4)%4)*get((ctl(0)>>4)%2))-
  63.     sin(((ctl(1)>>1)%5)*get((ctl(0)>>7)%20)))),3),
  64. src(mix(x,scl(get(2),-512,512,0,X-1),ctl(5),255),
  65.     mix(y,scl(get(3),-512,512,0,Y-1),ctl(5),255),z)
  66.  
  67. A=
  68. a
  69.  
  70.